home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0056_43-50 Line Mode.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  772b  |  22 lines
  1. {
  2. > HELP!!!  I cannot figure out how to throw Borland's Turbo Pascal
  3. > v4.0 into VGA 50linesx80columns mode!
  4.  
  5. You just have to use the Textmode procedure that is in the CRT
  6. unit. The following is an example of how to use it.
  7. }
  8.  
  9. PROGRAM TextMode_Demo;          {  June 14/93, Greg Estabrooks  }
  10. USES
  11.   CRT;                          {  TextMode, LastMode           }
  12. VAR
  13.   SavedMode : BYTE;             {  Holds Initial Text mode      }
  14.  
  15. BEGIN
  16.   SavedMode := LastMode;        {  Save Current Mode for later  }
  17.   TextMode(Font8x8 + Co80);     {  Set to Color 43/50 line mode }
  18.   Writeln('This is 43/50 line mode!');
  19.   Readln;                       {  Wait for user to have a look }
  20.   TextMode(SavedMode);          {  Restore to original textmode }
  21. END.
  22.